*Replication Instructions for

*Toward a Posthumanist Understanding of Wartime Suffering: 
*Public Concern for Animal Welfare in Ukraine

*Sam Whitt, Vera Mironova

*Below are instructions for replicating all manuscript and online appendix tables and figures in STATA using the dataset "PoP replication data.dta". Please contact Sam Whitt (swhitt@highpoint.edu) for questions regarding data replication. See also the dofile "PoP replication do file". 

*Note: You may need to install STATA packages for the cibar, catcibar, and iebaltab commands. Use findit with the command name to identify and download the appropriate packets to install. 

*Note: In addition, some graphs require additional formatting using filename.grec files with the graph play command. To format a graph, simply run the command to generate the graph in the do file in STATA, then open the "Graph Editor" in STATA and click on the GREEN "Play Recording" button, then select "Browse" to select the grec file from the folder "grec files for STATA graph formatting" among Replication files. The name of the grec file is indicated in the note below the graph command in the do file for the specific graph you wish to format. This should automatically format the graph, which you may then save to a location of your choosing.

*Manuscript Replication

*"Stata user generated commands to install for replication purposes"

*"cibar"

ssc install cibar, replace

*"iebaltab from ietoolkit"

ssc install ietoolkit, replace

*"catcibar"

net install catcibar, from("https://aarondwolf.github.io/catcibar") replace

*Manuscript Replication

*In Text Replication

*"Overall, we find only modest treatment effects on both priming on human and animal suffering on empathy-related items. Specifically, priming on human suffering led to a small increase in human empathy relative to control in Model 1 (Cohen's D = 0.13, two-sample Wilcoxon test z=2.47,  p=0.014) and respondents reacted negatively to priming on animal suffering in Model 4 which resulted in a modest increase in support for efforts to protect humans relative to animals (Cohen's D = 0.14, two-sample Wilcoxon test z=2.56,  p=0.011)." 

esize twosample revempmediatorcheck if humanimaltxt~=2, by(humanimaltxt)
ranksum revempmediatorcheck if humanimaltxt~=2, by(humanimaltxt)

esize twosample protectmore if humanimaltxt~=1, by(humanimaltxt)
ranksum protectmore if humanimaltxt~=1, by(humanimaltxt)

*"Again, however, the overall treatment effect size is small (Cohen's D= 0.13, two sample Wilcoxon text z=1.957, p=0.050) indicating that the movement was relatively modest in the direction hypothesized by H2."

esize twosample giveidp100rnd if humanimalaidtxt~=1, by(humanimalaidtxt)
ranksum giveidp100rnd if humanimalaidtxt~=1, by(humanimalaidtxt)

*"While few people chose extreme options of complete amnesty or extreme punishments such as the death penalty, the distribution shows that respondents handed down harsher punishments for actions leading to human deaths than animal deaths (two-sample t-test = 6.1, p<0.0001). A non-parametric equality of medians test is also significant when comparing punishments for human relative to animal deaths (Pearson's Chi-squared=25.1, p<0.001). The effect size is larger than what we have observed in previous experiments and should be considered a moderate treatment effect (Cohen's D= 0.29)."

ttest punishment, by(humandeathtxt) unpaired unequal
median punishment, by(humandeathtxt)
esize twosample punishment, by(humandeathtxt)

*Tables and Figures

*Table 1

tab nationality
tab russpeaker
tab female
sum age education income
tab region
tab ownpets
tab employment
tab dsawviolencehuman
tab dsawviolenceanimals
tab dinjured
tab dlostanimals
tab ddisplaced

*Figure 5

histogram revempmediatorcheck, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g1

histogram protectmoral, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g2

histogram feelmorepain, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g3

histogram protectmore, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g4

graph combine "g1.gph" "g2.gph" "g3.gph" "g4.gph"

*Note additional formatting requires the "Figure 2 formatting.grec" file with the command graph play "Figure 5 formatting.grec" 

*Table 2. 

reg revempmediatorcheck ib3.humanimaltxt, robust
reg protectmoral ib3.humanimaltxt, robust
reg feelmorepain ib3.humanimaltxt, robust
reg protectmore ib3.humanimaltxt, robust

*Figure 6

histogram revaidmediatorcheck, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g5

histogram providemoral, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g6

histogram selfhelp, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g7

histogram giveidp100rnd, discrete percent addlabels addlabopts(mlabformat(%2.1f)) barwidth(1) xlabel(0(1)10)
graph save g8

graph combine "g5.gph" "g6.gph" "g7.gph" "g8.gph"

*Note additional formatting requires the "Figure 3 formatting.grec" file with the command graph play "Figure 6 formatting.grec" 

*Table 3. 

reg revaidmediatorcheck ib3.humanimalaidtxt, robust
reg providemoral ib3.humanimalaidtxt, robust
reg selfhelp ib3.humanimalaidtxt, robust
reg giveidp100rnd ib3.humanimalaidtxt, robust

*Figure 7

histogram punishment if humandeathtxt==0, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g9

histogram punishment if humandeathtxt==1, discrete percent addlabels addlabopts(mlabformat(%2.1f))
graph save g10

graph combine "g9.gph" "g10.gph" 

*Note additional formatting requires the "Figure 4 formatting.grec" file with the command graph play "Figure 7 formatting.grec" 

*Figure 8

*Note: Use PoP comparison data.dta for this figure

*graph twoway (kdensity revanimal1 if ukraine==1) (kdensity revanimal1 if moldova==1) (kdensity revanimal1 if usa==1)
*graph save g11

*histogram revanimal3, by(group, cols(3)) discrete percent addlabels addlabopts(mlabformat(%2.1f))
*graph save g12

*graph combine "g11.gph" "g12.gph" 

*Note additional formatting requires the "Figure 5 formatting.grec" file with the command graph play "Figure 8 formatting.grec" 

*Online Appendix 

*Survey Demographics

tab nationality
tab russpeaker
tab female
sum age education income
tab region
tab ownpets
tab employment
tab dsawviolencehuman
tab dsawviolenceanimals
tab dinjured
tab dlostanimals
tab ddisplaced

*Experiment 1 

*Experiment 1 Balance Tests

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4, groupvar(humanimaltxt) savexlsx(balance1)

*Experiment 1 Robustness Checks

*Experiment 1 – Human versus Animal Empathy (OLS Regression)

reg revempmediatorcheck ib3.humanimaltxt, robust
reg protectmoral ib3.humanimaltxt, robust
reg feelmorepain ib3.humanimaltxt, robust
reg protectmore ib3.humanimaltxt, robust

*Experiment 1 – Extended Controls (OLS Regression)

reg revempmediatorcheck  ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

reg protectmoral ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

reg feelmorepain ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

reg protectmore ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

*Experiment 1 – Human versus Animal Empathy (Tobit Regression)

tobit revempmediatorcheck ib3.humanimaltxt, ll ul 
tobit protectmoral ib3.humanimaltxt, ll ul
tobit feelmorepain ib3.humanimaltxt, ll ul 
tobit protectmore ib3.humanimaltxt, ll ul 

*Experiment 1 – Extended Controls (Tobit Regression)

tobit revempmediatorcheck  ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

tobit protectmoral ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

tobit feelmorepain ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

tobit protectmore ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

*Experiment 1 – Human versus Animal Empathy (Ordered Probit Regression)

oprobit revempmediatorcheck ib3.humanimaltxt, robust
oprobit protectmoral ib3.humanimaltxt, robust
oprobit feelmorepain ib3.humanimaltxt, robust
oprobit protectmore ib3.humanimaltxt, robust

*Experiment 1 – Extended Controls (Ordered Probit Regression)

oprobit revempmediatorcheck  ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

oprobit protectmoral ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

oprobit feelmorepain ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

oprobit protectmore ib3.humanimaltxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

*Experiment 1 – Empathy, Social Norms, Agency, and Protection from Harm (OLS Regression)

reg protectmore ib3.humanimaltxt revempmediatorcheck feelmorepain protectmoral, robust

*Experiment 1 Power Calculations

power oneway, n1(632) n2(647) n3(729) power(0.80 0.90 0.95 0.99)
esize twosample revempmediatorcheck if humanimaltxt~=2, by(humanimaltxt)
esize twosample protectmore if humanimaltxt~=1, by(humanimaltxt)

*Sensitivity Analysis – Experiment 1 and Correlates of Empathy

reg revempmediatorcheck ib3.humanimaltxt, robust
reg protectmore ib3.humanimaltxt, robust
reg protectmore  ownpets if ownpets<2, robust
reg protectmore female, robust
reg protectmore age, robust

regsensitivity bounds revempmediatorcheck humanimaltxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if humanimaltxt~=2, dmp robust

regsensitivity bounds revempmediatorcheck humanimaltxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if humanimaltxt~=2, oster robust

regsensitivity bounds protectmore humanimaltxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if humanimaltxt~=1, dmp  robust

regsensitivity bounds protectmore humanimaltxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if humanimaltxt~=1, oster  robust

regsensitivity bounds protectmore ownpets humanimaltxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if ownpets<2, dmp robust

regsensitivity bounds protectmore ownpets humanimaltxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if ownpets<2, oster robust

regsensitivity bounds protectmore female ownpets humanimaltxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker age education income employment region4, dmp robust

regsensitivity bounds protectmore female ownpets humanimaltxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker age education income employment region4, oster robust

*Experiment 1 Mediation Analysis

*Generating complier variables (already coded)

*gen agreenudge = 1 if humanlessimp>5 & humanlessimp~=.
*replace agreenudge = 1 if humanequalimp>5 & humanequalimp~=. & agreenudge==.
*replace agreenudge = 1 if humanmoreimp>5 & humanmoreimp~=. & agreenudge==.
*replace agreenudge = 0 if agreenudge==.

*gen peoplelessagree = 1 if empmediatortxt==1 & agreenudge==1
*replace peoplelessagree = 0 if empmediatortxt==1 & agreenudge==0

*gen peopleequalagree = 1 if empmediatortxt==2 & agreenudge==1
*replace peopleequalagree = 0 if empmediatortxt==2 & agreenudge==0

*gen peoplemoreagree = 1 if empmediatortxt==3 & agreenudge==1
*replace peoplemoreagree = 0 if empmediatortxt==3 & agreenudge==0

tab humanequalimp peopleequalagree
tab humanlessimp peoplelessagree
tab humanmoreimp peoplemoreagree

*In total in GROUP C there were 19% Compliers in the Zoocentric Treatment, 72% Compliers in the Biocentric Treatment, and 44% Compliers in the Anthropocentric treatment.

tab agreenudge if empmediatortxt==1 & q123order==3 
tab agreenudge if empmediatortxt==2 & q123order==3 
tab agreenudge if empmediatortxt==3 & q123order==3 

*Balance tests indicate successful randomization into 3 Groups A, B, and C. Group means are below and t-tests are provided on the following page. 

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4 if  q123order==3, groupvar(empmediatortxt) savexlsx(balancem1)

*Randomized Manipulation of Mediator (Group C)

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4, groupvar(q123order) savexlsx(balanceg1)

*Experimental Treatment Effects by Group (OLS Regression)

reg protectmore ib3.humanimaltxt if q123order==1, robust
reg protectmore ib3.humanimaltxt if q123order==2, robust
reg protectmore ib3.humanimaltxt if q123order==3, robust

*Manipulation of Human Empathy in GROUP C (OLS Regression)

reg revempmediatorcheck ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==3, robust
reg protectmore ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==3, robust

*Anthropocentric Empathy Manipulation Check (Figure)

reg revempmediatorcheck ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==3, robust
margins ib2.empmediatortxt#agreenudge
marginsplot

*Note additional formatting required

*Support for More Human Protects (Empathy Mediator Margins Figure)

reg protectmore ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==3, robust
margins ib2.empmediatortxt#agreenudge
marginsplot 

*Note additional formatting required

*Support for More Human Protects (Empathy Mediator Bar Figure)

cibar protectmore if q123order==3, over1(empmediatortxt) over2(agreenudge)

*Empathy and Human vs Animal Suffering (OLS Regression)

reg revempmediatorcheck ib3.humanimaltxt if q123order==1, robust
reg revempmediatorcheck ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==2, robust
reg revempmediatorcheck ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==3, robust

*Empathy and Human vs Animal Suffering (OLS Regression Figure)

reg revempmediatorcheck ib3.humanimaltxt ib2.empmediatortxt##agreenudge if q123order==2, robust

margins ib2.empmediatortxt#agreenudge if humanimaltxt==1
marginsplot 

*Note additional formatting required

*Experiment 2

*Experiment 2 Balance Tests

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4, groupvar(humanimalaidtxt) savexlsx(balance2)

*Experiment 2 Robustness Checks

*Experiment 2 – Human versus Animal Resource Allocation (OLS Regression)

reg revaidmediatorcheck ib3.humanimalaidtxt, robust
reg providemoral ib3.humanimalaidtxt, robust
reg selfhelp ib3.humanimalaidtxt, robust
reg giveidp100rnd ib3.humanimalaidtxt, robust

*Experiment 2 – Extended Controls (OLS Regression)

reg revaidmediatorcheck  ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

reg providemoral ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

reg selfhelp ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

reg giveidp100rnd ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

*Experiment 2 – Human versus Animal Resource Allocation (Tobit Regression)

tobit revaidmediatorcheck ib3.humanimalaidtxt, ll ul
tobit providemoral ib3.humanimalaidtxt, ll ul
tobit selfhelp ib3.humanimalaidtxt, ll ul 
tobit giveidp100rnd ib3.humanimalaidtxt, ll ul

*Experiment 2 – Extended Controls (Tobit Regression)

tobit revaidmediatorcheck  ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul

tobit providemoral ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

tobit selfhelp ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

tobit giveidp100rnd ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , ll ul 

*Experiment 2 – Human versus Animal Resource Allocation (Ordered Probit Regression)

oprobit revaidmediatorcheck ib3.humanimalaidtxt, robust
oprobit providemoral ib3.humanimalaidtxt, robust
oprobit selfhelp ib3.humanimalaidtxt, robust
oprobit giveidp100rnd ib3.humanimalaidtxt, robust

*Experiment 2 – Extended Controls (Ordered Probit Regression)

oprobit revaidmediatorcheck  ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

oprobit providemoral ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

oprobit selfhelp ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

oprobit giveidp100rnd ib3.humanimalaidtxt i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

*Experiment 2 – Correlates of Resource Bias (OLS Regression)

reg giveidp100rnd ib3.humanimalaidtxt revaidmediatorcheck, robust
reg giveidp100rnd ib3.humanimalaidtxt providemoral, robust
reg giveidp100rnd ib3.humanimalaidtxt selfhelp, robust
reg giveidp100rnd ib3.humanimalaidtxt revaidmediatorcheck providemoral selfhelp, robust

*Experiment 2 Power Calculations

power oneway, n1(681) n2(661) n3(666) power(0.80 0.90 0.95 0.99)
esize twosample givebias if humanimalaidtxt~=1, by(humanimalaidtxt)

*Sensitivity Analysis – Experiment 2 and Correlates of Resource Allocation

reg giveidp100rnd ib3.humanimalaidtxt, robust
reg giveidp100rnd i.ownpets, robust
reg giveidp100rnd female, robust

regsensitivity bounds giveidp100rnd humanimalaidtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if humanimalaidtxt~=1, dmp  robust

regsensitivity bounds giveidp100rnd humanimalaidtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if humanimalaidtxt~=1, oster  robust

regsensitivity bounds giveidp100rnd ownpets humanimalaidtxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if ownpets<2, dmp robust

regsensitivity bounds giveidp100rnd ownpets humanimalaidtxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4 if ownpets<2, oster robust

regsensitivity bounds giveidp100rnd female ownpets humanimalaidtxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker age education income employment region4, dmp robust

regsensitivity bounds giveidp100rnd female ownpets humanimalaidtxt dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker age education income employment region4, oster robust

*Experiment 2 Mediation Analysis

*Generating complier variables (already coded)

*gen agreenudge2 = 1 if humaidless>5 & humaidless~=.
*replace agreenudge2 = 1 if humaidequal>5 & humaidequal~=. & agreenudge2==.
*replace agreenudge2 = 1 if humaidmore>5 & humaidmore~=. & agreenudge2==.
*replace agreenudge2 = 0 if agreenudge2==.

*gen humaidlessagree = 1 if aidmediatortxt==1 & agreenudge2==1
*replace humaidlessagree = 0 if aidmediatortxt==1 & agreenudge2==0

*gen humaidequalagree = 1 if aidmediatortxt==2 & agreenudge2==1
*replace humaidequalagree = 0 if aidmediatortxt==2 & agreenudge2==0

*gen humaidmoreagree = 1 if aidmediatortxt==3 & agreenudge2==1
*replace humaidmoreagree = 0 if aidmediatortxt==3 & agreenudge2==0

*In total in GROUP C there were 16% Compliers in the Zoocentric Treatment, 59% Compliers in the Biocentric Treatment, and 47% Compliers in the Anthropocentric treatment. 

tab agreenudge2 if aidmediatortxt==1 & q456order==3
tab agreenudge2 if aidmediatortxt==2 & q456order==3
tab agreenudge2 if aidmediatortxt==3 & q456order==3

*Balance tests indicate successful randomization into 3 Groups A, B, and C. Group means are below and t-tests are provided on the following page. 

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4 , groupvar(q456order) savexlsx(balanceg2)

*Randomized Manipulation of Mediator (Group C)

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4 if q456order==3, groupvar(aidmediatortxt) savexlsx(balancem2)

*Experimental Treatment Effects by Group (OLS Regression)

reg giveidp100rnd ib3.humanimalaidtxt if q456order==1, robust
reg giveidp100rnd ib3.humanimalaidtxt if q456order==2, robust
reg giveidp100rnd ib3.humanimalaidtxt if q456order==3, robust

*Manipulation of Human Empathy in GROUP C (OLS Regression)

reg revaidmediatorcheck ib3.humanimalaidtxt ib2.aidmediatortxt##agreenudge2 if q456order==3, robust
reg giveidp100rnd ib3.humanimalaidtxt ib2.aidmediatortxt##agreenudge2 if q456order==3, robust

*Anthropocentric Empathy Manipulation Check (Figure)

reg revaidmediatorcheck ib3.humanimalaidtxt ib2.aidmediatortxt##agreenudge2  if q456order==3, robust
margins ib2.aidmediatortxt#agreenudge2
marginsplot 

*Note additional formatting required

*Support for More Human Protects (Empathy Mediator Margins Figure)

reg giveidp100rnd  ib3.humanimalaidtxt ib2.aidmediatortxt##agreenudge2 if q456order==3, robust
margins ib2.aidmediatortxt#agreenudge2
marginsplot 

*Note additional formatting required

*Experiment 3 

*Experiment 3 Balance Tests

iebaltab ownpets dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment urban_rural region4, groupvar(humandeathtxt) savexlsx(balance3)

*Experiment 3 Robustness Checks

oprobit punishment humandeathtxt, robust

oprobit punishment humandeathtxt  i.ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4 , robust

*Experiment 3 Power Calculations

power oneway, n1(990) n2(1018) power(0.80 0.90 0.95 0.99)
esize twosample punishment, by(humandeathtxt)

*Sensitivity Analysis – Experiment 3 and Correlates of Punishment

reg punishment humandeathtxt, robust
reg punishment dinjured, robust
reg punishment russpeaker, robust
reg punishment education, robust

regsensitivity bounds punishment humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4, dmp robust

regsensitivity bounds punishment humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age education income employment region4, oster robust

regsensitivity bounds punishment dinjured humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals  dlostanimals displaced ukrainian russian russpeaker female age education income employment region4, dmp robust

regsensitivity bounds punishment dinjured humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals  dlostanimals displaced ukrainian russian russpeaker female age education income employment region4, oster robust

regsensitivity bounds punishment russpeaker humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian female age education income employment region4, dmp robust

regsensitivity bounds punishment russpeaker humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian female age education income employment region4, oster robust

regsensitivity bounds punishment education humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age  income employment region4, dmp robust

regsensitivity bounds punishment education humandeathtxt ownpets  dsawviolencehuman dsawviolenceanimals dinjured dlostanimals displaced ukrainian russian russpeaker female age income employment region4, oster robust

*Correlates of Victimization

logit dsawviolencehuman  dsawviolenceanimals dinjured dlostanimals displaced i.ownpets  ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4, robust

logit dsawviolenceanimals dsawviolencehuman dinjured dlostanimals displaced i.ownpets  ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4, robust

logit  dinjured  dsawviolencehuman dsawviolenceanimals   dlostanimals displaced i.ownpets ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4, robust

logit dlostanimals dsawviolencehuman dsawviolenceanimals  dinjured displaced i.ownpets ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4, robust

logit ddisplaced  dsawviolencehuman dsawviolenceanimals  dinjured dlostanimals i.ownpets  ukrainian russian russpeaker female age education income i.employment urban_rural ib4.region4, robust

*Moderating Effects of Animal Ownership

reg revempmediatorcheck ib3.humanimaltxt##i.ownpets, robust
reg protectmoral ib3.humanimaltxt##i.ownpets, robust
reg feelmorepain ib3.humanimaltxt##i.ownpets, robust
reg protectmore ib3.humanimaltxt##i.ownpets, robust

reg revaidmediatorcheck ib3.humanimalaidtxt##i.ownpets, robust
reg providemoral ib3.humanimalaidtxt##i.ownpets, robust
reg selfhelp ib3.humanimalaidtxt##i.ownpets, robust
reg giveidp100rnd ib3.humanimalaidtxt##i.ownpets, robust

reg punishment humandeathtxt##i.ownpets, robust

*Survey Sampling Methodology (Moldova)

*Note: Use "PoP Moldova replication data.dta"

*Concern for Human over Animal Suffering (OLS Regression)

*histogram revanimal1, discrete percent addlabels addlabopts(mlabformat(%2.1f))

*Concern for Human over Animal Suffering (Figure)

*reg revanimal1 gender age ib3.education i.location ib10.employment i.language ib4.income, robust

*Survey Sampling Methodology (United States)

*Note: Use "PoP US replication data.dta"

*reg revanimal1_1 ib2.gender_1 ageyear_1 i.education_1 hhincome_1 ib3.Region_1 ib3.partyid_1 ib2.race_1 ib2.latino_1, robust

log close
